 1 # 61d # 5d
BLANK {  T V C
   T "" INPUT OBJ
V STO CAR1 C B {
# 0d # 0d } V EVAL
1 GROB REPL REPL
'CAR1' STO
   } "" "" ""
GROB 131 56 000000C98D9C0CC1CDC99D9C080000000000000044584514D0449448451410000000000000CC584D1450CC9448451C00000000000000CCD9CD1CD1CCDDDDD51C000000000000004499841CC144D99D941400000000000000000000000000000000000000000000000D900010894CDC884144577710000000008441089144544555D044522120000000008C410451445CCC45DC5572232000000000844104D04454455551C6522120000000000D98089189CDD4984144572710000000000001000000000000000000000000000000EFFFFFFFFFFFFFFFFFFFFFFFF00000000020000000000000000000000080000000002400000008000600000C07209000000000260000000400010000001130A000000000240000000400070000080320A000000000240000000400010000040420A0000000002E008124C4000600020C5770A0000000002083022A2400000002000000A000000000AF38392A24EFFFFF8FCFFFF7A0000000002083802AA400000002000000A000000000231083E4C483E48102030890A000000000292000000402868200056841A00000000029000000040344A200035940A000000000A91000000402448200053CC0A00000000029000000088B4E810005684090000000002000000000000000000000008000000000EFFFFFFFFFFFFFFFFFFFFFFFF0000000000000000000000000000000000000000000000000000000000000000000000000C8C00894D0C54D91480C9CCC1C994D5D504551005551444940441845550444594540AAE408AEA062A4402E04AEE6064AA4A6206AA00AAAA02244802A04AAA2028AA442201652066550772770750265570776772770000000000000000000000000000800000000000000000000000000000000000000000000000000000000000000000000000000000000000000001300000000000000000000000000000008800100000000000000000000000000000883000000000000000000000000000000088001000000000000000000000000000008030000000000000000000000000000000800000000000000000000736376703272688100000000000000000025151110552518820100000000000000002513323057252482000000000000000000255514105525488201000000000000000075657370352238810000000000000000000000000000000800000000000000000000000000000000088100000000000000000000000000000008823100000000000000000000000000000889200000000000000000000000000000088A1100000000000000000000000000000092300000000000000000
RCLMENU  R B P
 D Re CAR1 t
  
    WHILE R
    REPEAT
      IFERR -40 CF
CAR1 LCD { ""
"D" }
GROB 21 8 000000FFFFF1F7EFF1F7DCF1F76DF1F75EF1F7DCF1FFFFF1
# 21d # 8d BLANK
"(AN(L" "OK" 4
LIST + TMENU -1
WAIT IP  K
         { } TMENU
          CASE 'K==
11'
            THEN
"Rugosidad absoluta :"
'' { # 71d # 39d
} P EVAL
            END 'K
==12'
            THEN
"Diametro del tubo :"
'D' { # 71d # 45d
} P EVAL
            END 'K
==13'
            THEN
"Numero de Reynolds :"
'Re' { # 71d # 51d
} P EVAL
            END 'K
==15'
            THEN t
MENU KILL
            END 'K
==16'
            THEN
.00000001 0 0 .025
0 0 1  E X1 X2 f1
F DF I
              
IF 'Re2200'
THEN 64 Re / "f"
TAG KILL
ELSE 'F(X)=-2*LOG(
/3.7/D+2.51*X/
Re)' DEFINE 'DF(X)
=-2/LN(10)*(2.51/
Re/(/3.7/D+2.51
*X/Re))' DEFINE 1
f1  / 'X1' STO
  WHILE 'I==1'
  REPEAT 'X1-(F(X1)
-X1)/(DF(X1)-1)'
EVAL 'X2' STO
    IF 'ABS(X1-X2)
E'
    THEN 0 'I' STO
    ELSE X2 'X1'
STO
    END
  END
END 1 X2 X2 * / E
LOG RND "f" TAG
               0
'R' STO t MENU
            END 250
.1 BEEP
          END
        
      THEN 400 .1
BEEP
"Error en datos"
MSGBOX
      END
    END
  

